(defun generate-start (point)
  (setq cutline 0)
  (princ (strcat " ("
		 (princ (dzh-date))
		 " "
		 (princ (odometer))
		 ")\n N1000\n G92 X0 Y0\n G00 G90 X"
		 (itoa (fix (* (cadr point) 1000)))
		 " Y"
		 (itoa (fix (* (car point) -1000)))
		 "\n G91 G01 F"
		 feed-default
		 "\n G00 X0 Y0\n"
	 )
	 output
  )
  (laser-on)
)					; GENERATE-START

